home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / tools / dfÜ / bbs / tronbbs / tron / menus / start.src < prev    next >
Text File  |  1996-07-16  |  2KB  |  88 lines
  1.  
  2. ; This is the first menu where a user enters the BBS
  3.  
  4. Menu "start.menu"
  5.  
  6. flags  hotkeyable
  7. level  0 - 255 , "Start.Ansi"
  8. prompt 0 , 0 - 255 , "|Press <return> to continue.."
  9. prompt 1 , 0 - 255 , "|Press <return> to continue.."
  10.  
  11. BEGIN     ; Start the command definitions
  12.  
  13.  
  14. Cmd "G" , 0-255
  15.    GotoMenu "Logout.Menu"
  16. EndCmd
  17.  
  18.  
  19. Cmd "F"
  20.    ClrScr
  21.    CatalogChronoGlobalNew
  22. EndCmd
  23.  
  24.  
  25. Cmd "M"
  26.    ClrScr
  27.    ReadWaitingMail
  28. EndCmd
  29.  
  30.  
  31.  
  32.  
  33. Cmd "N" , 5-255
  34.    CliDoor     "tron:doors/quest/DoQuest ~50 ~51"
  35.  
  36.    ReadWaitingMail
  37.    ChangeMessageArea  "5"             ;Read New 'MsgsToAll'
  38.    ReadNew
  39.  
  40.    DosCommand  "tron:utils/tron -max 'User ~200 logged in on node ~50.'"
  41.    GotoMenu "Main.Menu"
  42. EndCmd
  43.  
  44.  
  45. Cmd "" , 5 - 255
  46.    CliDoor     "tron:doors/quest/DoQuest ~50 ~51"
  47.  
  48.    ReadWaitingMail
  49.    ChangeMessageArea  "5"             ;Read New 'MsgsToAll'
  50.    ReadNew
  51.  
  52.    DosCommand  "tron:utils/tron -max 'User ~200 logged in on node ~50.'"
  53.    GotoMenu "Main.Menu"
  54. EndCmd
  55.  
  56.  
  57.  
  58.  
  59. Cmd "N" , 0 - 4
  60.    Print "|Ha een nieuwe User !!|"
  61.    ChangeAccesLevel "10"
  62.    CliDoor     "tron:doors/quest/DoQuest ~50 ~51"
  63.  
  64.    ReadWaitingMail
  65.    ChangeMessageArea  "5"             ;Read New 'MsgsToAll'
  66.    ReadNew
  67.  
  68.    DosCommand  "tron:utils/tron -max 'User ~200 logged in on node ~50.'"
  69.    GotoMenu "Main.Menu"
  70. EndCmd
  71.  
  72.  
  73. Cmd "" , 0 - 4
  74.    Print "|Ha een nieuwe User !!|"
  75.    ChangeAccesLevel "10"
  76.    CliDoor     "tron:doors/quest/DoQuest ~50 ~51"
  77.  
  78.    ReadWaitingMail                    ;SCAN waiting mail !!
  79.    ChangeMessageArea  "5"             ;Read New 'MsgsToAll'
  80.    ReadNew
  81.  
  82.    DosCommand  "tron:utils/tron -max 'User ~200 logged in on node ~50.'"
  83.    GotoMenu "Main.Menu"
  84. EndCmd
  85.  
  86. END
  87.  
  88.